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MODULE RM3PUT (LANGUAGE (BL S858) ’ 
IDENT = ‘V04-000' 


BEGIN 


EPPS E ESOS ESET IT TT TTT TT TTT TTT Terre reer e tcc tert icici icici ci isi titi iti titi tf 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


* 
*® 
* 
*® 
*® 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
iw ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
i COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
! « 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
is AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. : 

a 

& 

® 

*® 

® 

* 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
' 
ORCC t tii iii iir iii iri iii iit ii iii iii titi iiiititi ii iii tii itt 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


FACILITY: RMS32 Index Sequential File Organization 
ABSTRACT: 
The high level S$PUT code. 
ENVIRONMENT : 
VAX/VMS Operating System 


AUTHOR: Todd M. Katz RE-CREATION DATE: 09-Jan-83 
MODIFIED BY: 

v03-022 0GB0071 Donald G. Blair 17-Jul-1984 

Return STV correctly after disk-quota-exceeded error 

during root bucket split. 


v03-021 DASO0002 David Solomon 25-Mar-1984 
Fix broken branches to RMSRU_JOURNAL3 and RMSRU_REFORMAT. | 


v03-020 0GB0032 Donald G. Blair 20-Mar-1984 
to RMSUNLOCK 
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Fix broken branch 
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eet ety ak Ge See tS 
! 
i v03-019 AS90001 David Solomo 5-Mar-1984 
! on't set IRBSV_UNLOCK_RP if. ULK set (FT1 QAR 628). 
v03-018 TSK0001 Tamar Etigbeveky 22-Jun-1983 


Fix broken branch to RM$LOCK. 


v03-017 TMKO012 
Change 
RLSR 


v03-016 egy 


REG_67. 


v03-015 TMKOO 


RLSRABREG_467. 


Todd 
Change the symbol RASRS pure tp RJR$_PUT. 


v0O3-013 TMKO009 Todd M 
Set the bit CSH$V_LOCK 


calling RMS$GET_BKT within RMSCONFIRM_EOF So that the bucket 


¢ Maria del C. Nasr 
More Linkages reorganization. 


Todd M. Katz 26-Mar-1983 
the Linkage for RM$RU_JOURNAL3 from RLSRABREG_467 to 


24-Mar-1983 


r=1983 


Todd M 16-M 
change. the, Linkage for “RNSRU. JOURNALS from RLSRABREG_ 67 to 


16-Mar-1983 


11-Mar-1983 
Kin’ the field IRBSB_CACHEFLGS before 


retrieved will be exclusively locked. 


v03-012 MCNO001 
Reorganize Linkages 


v03-011 TMKO008 


Maria del C. Nesr 


Todd M. Katz 
Re-write the routines eithte this module adding support for 


28-Feb-1983 


19-Dec-1982 


Recovery Unit Journalling of $PUT. 
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LIBRARY ‘RMSLIB:RMS'; 
REQUIRE ‘RMSSRC:RMSIDXDEF'; 
Define default PSECTs for code. 
PSECT 
CODE = RMSRMS3(P 
PLIT = RMS$RMS3(P 
Linkages. 
LIMcAG AG 


SECT_ATTR), 
PSECT_ATTR); 


$-32 | Page 2. 


TER: chm she RM3PUT .B32; 1 (1) 


7} 
2 

RM3PUT 1B-s6 -1984 01:57:49 —-VAX=11 Bliss= 32 v4 e 3 RMI 
V04= aati ae ts 3584 $2 DISKSVMSMASTER: cing? sre RM3PUT.B32;1 _ ay V04: 
; 115 0179 1 L_RABREG_ ?. 
: 116 0180 1 L-RABREG_ - 4 
: 11 o1 2 SB 
; 418 1 § 1 ' Local Routine eae ae 
3; 119 0185 1 : ; | 
: 120 0184 1 RLSLINKAGE = JSB ( | . 4 
; ! 1 0185 | GLOBAL (COMMON_RABREG, R_IDX_DFN, R_REC_ADDR); | s | 
: 158 O18? 1 ! Forward Routines. ee 
s 126 bi8o 1! > | 
> 125 189 1 FORWARD ROUTINE By 
; } § 8130 RMSUPDATE _IF : RLSLINKAGE; | 
3 6128 0198 1 ! External Routines. ; | 
: 129 0193 1! ee 
: 130 0194 1 EXTERNAL ROUTINE ae 
3: 131 0195 1 RMSBKT_SORT : RLSRABREG 7, oe 4 
3 13 0196 1 RMSCLEAN BDB : RLSERROR CINK1, ca 
: (13 0197 1 RMSCOMPARE _KEY : RLSCOMPARE KEY, 4 
7 134 0198 1 RMSCSEARCH” TREE : RLSRABREG_67 a 
> 135 0199 1 RMSDELETE_ODR LSRABREG4567, | ae 
: 136 9200 1 TBKT RLSRABREG_457, oe 
; iS 0201 1 — RMSGETNEXT_REC RLSRABREG_67 | : | 
: 138 020e 1 RMSINS ALL~SIDR RLSRABREG_4567, | i | 
3; 6139 0203 1 aad SERT_ODR LSRABREG_ 4567, aa 
3s 140 0204 1 ms INss _OR_IDx RLSRABREG 567, 3 | 
> 141 0205 1 RLSQUERY_AND_LOCK ADDRESSING_MODE( LONG_RELATIVE ) eae | 
> 142 0206 1 MSMAKE_ INDEX RLSRABREG_7 ej 
> 143 0207 1 RMSPACK REC RLSRABREG 567, | the 
> 144 0208 1 RMSPUT_OPD_CHKS LSRABREG_7, an 
> 145 0209 1 MSPUT—UPD—F IN RLSRABREG, | ] 
> 146 0210 1 RMSPUT UPD” SPL : RLSRABREG 4567, SE 
: 147 0211 1 RMSRECORD_REY : RLSPRESERVE1, | 
: 148 0212 1 RMSRECORD_1D : RLSRABREG 67, 4 
> 149 0213 1 RMSRECORD_VBN RLSPRESERVE1, e4 
3; 150 0214 1 RMSRLSBK : RLSPRESERVE1, ee 
> 151 0215 1 RM$RU_JOURNAL3 : RLSRABREG_67 ADDRESSING MODE ( (LONG RELATIVE ) | = 
: 152 0216 1 RMSRU_ REFORMAT : RLSRABREG 567 ADDRESSING _MODE( LONG R IVE Se 
: 153 0217 1 RMSUNCOCK : RLSQUERY AND. -LOCK ADDRESSING ERODE CONG. ARELATIVE }. ed 
3; 3S 0218 1 RMSUPDATE 3B : RLSRABREG_6 | - | 
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RMSCONF IRM_EOF 


ZSBITL_ ‘RMSCONFIR 
ROUTINE RMSCONFIR 


44 
' 


FUNCTIONAL DESCRIPTION: 


M_EOF' 
ME OF 


: RLSLINKAGE = 


On position to EOF, while doing the first PUT, ne nag Pg pe scan 


the file to verify there are no non-deleted recor 


position of insert. 


CALLING SEQUENCE: 
RMSCONF IRM_EOF () 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 


IDX_DFN 
IDX$8_DATBKTSZ 


s following the 


address of the primary ~~ descriptor 
size of the primary data bucket in blocks 


address of IRAB 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

' 

i 

: - 

: IRBS$V_ABOVELCKD - if set, lockabove optimization is in effect 

: IRBS$L_CURBDB - address of BDB for insertion bucket 

: IRBS$B_CUR_KREF - current NRP key of reference 

: IRBSL_LOCR_BDB - address of BDB of above locked bucket _ 

: IRBSL_MIDX_TMP3 - VBN of bucket containing insertion position 

; REC_ADDR address of position of insertion 

i QUTPUT PARAMETERS: 

} NONE 

i IMPLICIT OUTPUTS: 

IRAB - address of IRAB 

: IRB$V_ABOVELCKD - 

: IRB$L_CURBDB - address of BDB for starting data bucket 

IRB$L_LOCK_BDB - 0 

REC_ADDR address of record to start re-positioning with 

ROUTINE VALUE: 

i ROP - if secondary key selected 

: SUC - if record is really EOF record 

SEQ = is record isn't EOF record 

i SIDE EFFECTS: 

On ail errors, all locked buckets are released. ; : 

sienigy bob RMS returns positioned to the first record in the original 
ucket. 

' 

Ride 
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RM3PUT 16-Sep-1984 01:57:49 VAX-11 Bliss-32 V4.0-74 P 

V04-000 RMS CONF IRM_EOF eneeen18be $h:84:8 «Me eddmaAS fens chns secSemspur.es2:1° 2% 25 V 
: 1? 0 16 BEGIN : 
> 215 6 4: EXTERNAL REGISTER : 
3 18 7 COMMON_RAB_STR, ; 
; 2 80 R_IDX_BFN_STR ; 
18 81 R-REC-ADDR_STR; : 
: 20 0 He GLOBAL REGISTER : 
: $3 8 rf: COMMON_IO_STR; : 
: $6 0286 ! Position to EOF not supported for secondary keys. Return the appropriate : 
; 224 8 4 : error. ; 
; 220 0289 if -IRABCIRBSB_CUR_KREF] NEQU 0 
; 228 0291 3 RETURN RMSERR(ROP); : 
3 256 0995 2 Release the level one index bucket if lock above optimization was ; 
i 332 on ee ee : 
: th $353 § i ite (IRABCIRB$V_ABOVELCKD]) : 
; 235 0298 2 RELEASE (IRABCIRBSL_LOCK_BDB)); | : 
3 $3, 0860 § } Retrieve the the address of the primary data bucket. | : 
: 239 030¢ BDB = .IRAB CIRBSL_CURBDB); ; 
; 340 0308 : BKT_ADDR = .BDBCBDBSL_ADDRI; : 
: 262 0305 2 ' Scan this and subsequent pr inary data level buckets in the horizontal : 
: 243 0306 2 ! chain starting with the record following the point of insertion of the : 
> 244 0307 2 ! new record in order to prove that there are no records following the one ; 
: Sez B08 § which will be inserted. : 
> 267 0310 ; DO | ; 
: 248 0311 BEGIN $ 
: 249 bag 3 3 
: $3 eat 3 OCA OF BUCKET | ; 
: 33¢ 0515 3 NEXT_BOCKET; | 3 
: 254 0317 3 ! If the current bucket is not a primary data bucket th ignal : 
235 0318 i cone U primary data bucke en signal a 
; 239 0320 if .BKT_ADDRCBKTSB_LEVEL] NEQU 0 ; 
; 359 0528 BUG_CHECK; 2 
; $0) O35¢ Obtain the address of the end of the bucket. ; 
; 268 0326 END_OF_BUCKET = .BKT_ADDR + .BKT_ADDRCBKT$W_FREESPACE]; : 
; 265 0338 : Determine whether there are any non-deleted records in this bucket. ; 
; 267 0380 WHILE .REC_ADDR LSSA .END_OF BUCKET : 
: 269 0332 NOT .REC_ADDRLIRCSV_RRV] : 


16-se0-1984 9 
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buckets and return an error. 


IF NOT .REC_ADDRCIRC$V_DELETED) 


NOT .REC_ADDRCIRC$V_RU_DELETE] 
THEN 


BEGIN 
RMSCLEAN._ BDB(); 
RETURN RASERR(SEQ); 


3 dO 
4 
! If the current record is not deleted, then released all locked 


Otherwise, position to the next record in the bucket. 


SE 
RMSGETNEXT_REC(); 


If this primary data bucket is the Last bucket in the file, then 
the record RMS is inserting is not followed by any non-deleted records 
in the file, so return success. 


F_.BKT_ADDRCBKTS$V_LASTBKTI 
HEN 

BEGIN 
If RMS had to scan multiple buckets, then it no longer has 
accessed the bucket containing the point of insertion of the new 
record. Release the current bucket, and reaccess this original 
bucket, so that RMS can start its re-positioning with the first 
record in this bucket. 


BDBCBDB$L_VBNJ NEQU .IRABCIRBSL_MIDX_TMP3] 


ed et me ee ee 


afte so moms msec 


Fs 

HEN 
BEGIN 
IRABCIRBS$L_CURBDB) = 0; 
RMSRLSBKT (0); 


IRABCIRBSB_CACHEFLGS] = CSHSM_LOCK; 
RETURN_ON_ERROR (RMSGETBKT (.TRABLIRBSL_MIDX_TMP3) 

. 1DX_DFNCIDR$B_DATBKTS2] * 512)); 
IRABLIRBSL_CURBDB = .BDB; 


! RMS will re-pestt ten to the point of insertion of the new record 
starting with the first record in the bucket. 


REC_ADDR = .BKT_ADDR + BKTSC_OVERHDSZ; 
RETORN RMSSUC (SOC); 


This current bucket is not the Last bucket in the file; therefore, 
save the VBN of the next primary data bucket in the horizontal chain, 
release the current bucket, access the next bucket, and continue the 
acon mm Select primary data records with the first record in 

at bucket. 
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RMS CONF IRM_EOF eaeea the Phiatge Peale teas chns sheSemspur.eses1 2% «24 
3 7 90 ' 5; 1 
; g 31 NEXT_BUCKET = .BKT_ADDRCBKTSL_NXTBKT); - } 
; 0 38 IRABLIRBS$L_CURBDB) = 0; : 
3 6 Re RMSRLSBKT(O); 3 
: 96 IRABCIRBSB_CACHEFLGS] = CSHSM_LOCK; 1 
; 34 0397 RETURN_ON_ERROR ( (RMS GETBKY T (NEXT BUCKET 4 
; 3 0398 1DX_OFNCIDX$B_DATBKTSZ] * 512)); : | 
: 337 0400 IRABCIRBSL_CURBDB) = a4 
; 338 9401 REC ADDR =".BKT_ADDR + PBKisC _OVERHDSZ; = 
; 340 0408 § UNTIL 0; | 
>; 341 0404 a * 
; 34¢ 0405 2 RETURN RMSSUC(SUC); 4 
; 0406 1 END; : | 
j ( 
TITLE RM3PUT 3 
IDENT \v04-000\ , 4 
-EXTRN RMSBKT_SORT, RMSCLEAN_BDB | 
~EXTRN RMSCOMPARE KEY, RMSCSEARCH_TREE | TF 
EXTRN RMSDELETE ODR, RMSGETB ; 
EXTRN RMSGETNEX REC, RMSINS_ALL_SIDR 
.EXTRN RMSINSERT_ODR, RMSINSS_OR_T 2 | 
-EXTRN RMSLOCK, RMSMAKE_INDEX af 4 
.EXTRN RMSPACK_REC, RMSPUT_UPD_CHKS 3 
EXTRN RMSPUT OPD FIN, RMSPUT OPD SPL ‘4 
-EXTRN RMSRECORD_REY, RMSRE CORD. 15 B= 
.EXTRN RMSRECORD-VBN, RMSRL : 4 
-EXTRN RMSRU_JOURNALS, RASRO. REFORMAT | aa | 
~EXTRN RMSUNCOCK. RMSUPDATE 36 : 4 
.PSECT RMSRMS3,NOWRT, GBL, PIC,2 4 
34 BB 00000 RMSCONFIRM_EOF: | -rA 
PUSHR wocne At R5> ; 0220 z 4 
00c3 =c9 «95 00002 TSTB. 195(1 : 0289 eo 
07 13 00006 BEQL ; sl 
50 867C BF 3C 00008 MOVZWL 134628, RO : 0291 a3] 
46 11 00000 BRB : : | 
1 04 ag 15 €5 OOOOF 1$: BBCC 4(IRAB), 2$ > 0296 | mad 
54 0084 c9 b0 00014 MOVL TSU IRABY BDB : 0298 | | 
0084 C9 D4 00019 CLRL 132(1RAB) : 3 | 
7E bs 0001D CLRL = = (SP) : | 3s | 
00006 30 O001F BSBW RMSRLSBKT ; 2A 
SE 04 CO 00 : ADDL2 #4, SP ; 3! 
54 20 AI DO 00025 28 MOVL  32¢IRAB), : 0302 : 
55 18 Ad DO 00029 MOVL §§ 24(BDB), BKT_ADDR > 0303 | 4 
0c A 95 000 p 3$ TSTB. =—-: 12 (BKT_AD ; 0320 | e 4 
03 13 000 BEQL 4$ ; 3s | 
00006 ; 00 é BSBW RMS$BUG3 ; 0321 , | 
52 04 AS 3C 00035 4s: MOVZWL 4(BKT_ADDR), END_OF BUCKET > 0326 | : 
52 55 CO 00039 ADDL2 BKT_ADDR, END_OF “BUCKET ; | : | 
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ZSBTTL "RMSPCKDEC CHECK’ 
GLOBAL ROUTINE RMSPCKDEC_CHECK : RLSRABREG_? = 


44 
! 


FUNCTIONAL DESCRIPTION: 


This routine verifies that a packed decimal key is valid. The key to 
be verified is always assumed to be in keybuffer 2. 


CALLING SEQUENCE: 
BSBW RMSPCKDEC_CHECK() 


INPUT PARAMETERS: 
NONE 
IMPLICIT INPUT: 
IFA - address of IFAB 
IFBSW_KBUF SZ - size of one contigious keybuffer 
IRAB - address of IRAB 
IRBSL_KE YBUF - address of the contigious keybuffers 
IRBSB_KEYSZ - size of key 
OUTPUT PARAMETERS: 
NONE 


IMPLICIT GuTPUT: 
NONE 


ROUTJ NE_ VALUE 


SUC - string is a correct packed decimal string 
KEY = string is not a packed decimal string 


SIDE EFFECTS 
NONE 


BEGIN 
o_o REGISTER 


LOCAL 
KEYBUF : REF BLOCK C, BYTE); 


CRO 
LOW_MASK = 0,4,0 % 
HIGR_MASK = 4,4,0 &; 


KEYBUF = KEYBUF_ADDR(2); 


! Low nibble - digit (or sign) 
! high nibble = digit 


2 led P 
:CRMS.SRCJRM3PUT .B32; 1 


1h-52 -Sep-1984 01:57:49  VAKX=11 Bliss=-32 V4.0-74 Page 10. RMS 
RMSPCKDEC_CHECK 14- Sep-19 4 04:34:82 DL EKSVMEMASTER SCAMS. SRC IRMSPUT B32: 1 : (3). v04 
3 re aces : Check actual digits - each must be less than nine. 
: 404 46 INCR I FROM 0 TO (.IRABCIRB$B_KEYSZ] = 2) DO 
3 406 Beet BEGIN 
: 40 ac69 nA IF (.KEYBUFC.I, HIGH.MASK] GTRU 9) 
: 408 470 3 . 
: 409 0471 & (.KEYBUFC.1, LOW_MASK] GTRU 9) 
: 410 O47¢ THE 
: 411 047 RETURN RMSERR(KEY); 
; aig 0474 END; 
¢ iz rer ' Check Last byt ign, digit 
Py ; ec as e : sign, e 
41s ba79 i / tid ete 
; rh | Bere IF (.KEYBUFC(.IRABCIRBSB_KEYSZ] - 1), HIGH_MASK] GTRU 9) 
: 418 0480 (. KEYBUFC(. IRABLIRB$B_KEYSZ] - 1), LOW_MASK] LEQU 9) 
> 419 0481 2 N 
: 420 048¢ RETURN RMSERR(KEY): 
: 421 048 
: 422 0484 RETURN RMSSUC(); 
> 423 0485 2 | 
>; 424 0486 1 END; 
| | 
52 DD 00000 RMS$PCKDEC_CHECK:: 
OSHL R2 : 0408 
50 00B4 CA 3C 00002 MOVIUL 180(1FAB), KEYBUF : 0462 
50 60 A9 CO 00007 ADDL2 96(IRAB), KEYBUF : 
52 00A6 C9 9A 00008 MOVZBL 166(IRABS, R2 + 0466 
52 02 C2 00010 SUBL2 #2, R2 ; 
51 01 CE 00013 MNEGL #1, I + 0469 
10 11 00016 BRB 2$ ; 
09 6140 04 04 ED 00018 1$ CMPZV #4, #4, (I) CKEYBUFI, #9 ; 
23 1A OOO1E BGTRU 3$ F 
09 6140 04 00 €D 99020 CMPZV #0, #4, (I) CKEYBUFJ, #9 > 0471 
18 1A 900 6 BGTRU ; 
EC 51 52 F3 00028 2$ AOBLEQ + 0466 
51 00A6 C9 9A 0002C MOVZBL 1eécLAAs : 0478 
09 FF A140 04 04 ED 00031 CMP2V #4, AB) RL) CREYBUF. "9 : 
09 1A 900 8 BGTRU ; 
09 FF A140 04 0 ED OOO3A CMPZV #0, #4, -1(R1)CKEYBUFI, #9 + 0480 | 
07 1A 90041 BGTRU F 
50 8594 BF 3C 00043 3$ MOVZWL #34196, RO > 0482 
03 11 00048 BRB 5$ ; 
50 01 00 00044 4$ MOVL #1, RO > 0484 
04 BA 00040 5$ POPR #*M<R2> : 0486 
05 0004F RSB : | 


; Routine Size: 80 bytes, Routine Base: RMS$RMS3 + O0C7 


RMSPUT 


: 
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3 «6 $ 487 1 XSBTTL ‘RMSPUT3B‘ 

3 ? ‘ ri 8 ! GLOBAL ROUTINE RMSPUT3B : RLSRABREG = 

: 429 290 1 l44 

: 450 491 1! 

: ? 1 Bee ! : FUNCTIONAL DESCRIPTION: 

3; 4 ‘ 0496 1! The routine directs the insertion of a new record. The steps required 

; tee bee : } to insert a new record are as follows: 

3 $38 9h 4 } 1. Perform some operation specific validations and initializations. 

: 638 0499 1! 2. Position to the point of insertion of the new record primary data 

mi ieee 
3: 6441 B26 1! 3. Convert the $PUT into an SUPDATE and perform the SUPDATE if duplicate 

3: «44 0503 1! primary keys are not allowed, the primary key of the new record is 

3; 644 0506 1! already represented within the file, update access is allowed, and 

3 ree Bene : } updates have been requested in this particular circumstance. 

; 466 0507 1! 4. Insert the new record into the current bucket provided there is both 

3; 447 0508 1! available record IDs and sufficient free space in the bucket to 

; 448 0509 1! accomidate the new record. If there is not sufficient space or — 

: 449 0510 1! or record IDs, the primary data bucket is split, the new record is 

; 450 0511 1! inserted where appropriate, and the primary index is updated as is 

; $2) at : necessary. 
: 45 0514 1! 5. All alternate keys in the new record are inserted. | 
: 454 0515 1! 

: 455 0516 1 ! CALLING SEQUENCE: 
: 456 0517 1! 

3: 457 0518 1! BSBW RMS$PUT3B() 

: 458 0519 1! 

; 459 0520 1 ! INPUT PARAMETERS: 

: 460 0521 1! NONE 

; 461 b26¢ 1! 

; 46 052 1 ! IMPLICIT INPUTS: 

; 46 0524 1! : 

3 464 0525 1! IDX_DFN - index descriptor for primary key 
; 465 0526 1! IDX$B_DATATYPE - data type of primary key 

; 466 0527 1! IDX$B_DATBKTYP - primary data bucket compression type 
: 467 0528 1! IDX$V_DUPKEYS - if set, duplicate primary keys are allowed 
; ree 0380 : IDX$B_KEYSZ - size of the primary key 

; 470 0531 1! IFAB - address of IFAB 

3; 471 b236 . 7 IFBSW_KBUF SZ ~ size of a keybuffer — 

; 47 0533 1! IFB$B_PLG_VER - prologue version of file 

,. oF 0534 1! IFBSB_RFMORG - format of records 

3: 474 0333 8. 

: 475 0536 1! IRAB - address of IRAB : 

: 476 0537 1! IRB$V_CON_EOF - if set, make sure record is at end-of-file | 
: 477 0538 1! IRB$L—CURBDB - address of BDB for primary data bucket | 
: 478 i Be IRBS$V_DUP - if set, new record is a duplicate | 
3; 479 560 6 2 IRBSV_DUPS_SEEN - if set, duplicate of new priner key seen 
; 480 541 1! IRB$L_KEYBOF - address of te contigious keybuffers | 
; 481 276 1! IRB$V_PUTS_LAST - if set, Last operation was sequential $PUT 

: 482 0543 1! IRB$W-PUTUP_ID - RFA ID of new primary data record 
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04 

483 544 1! IRB$L_PUTUP_VBN - RFA VBN of new primary data record | 2 1 
2? 1! IRBS$L_RBF - address of user record buffer 3 3 

485 6 1} IRB$W_RSZ - size of new record 2M 
486 547 1: IRB$W_UDR_ID - RFA ID of current primary data record 2 1 
487 248 1! IRBS$L_UDR-VBN - RFA VBN of current primary data record 2 if 
rh 0386 IRB$V-UNLOCK_RP - if set, there is a current record lock | : ‘i 
490 391 1! AB - address of RAB : 1 
431 0326 ! RABSB_RAC - record access mode : ‘ 
49 pace 1 ! OUTPUT PARAMETERS: : 1¢ 
494 B32? 1! NONF 2 1 
495 5 § 1! 2 1 
496 bee 1 ! IMPLICIT OUTPUTS: 3 i 
497 558 1! 2 if 
498 0559 1: IRAB 3s 
499 0560 1 / IRB$V_CON_EOF - 0 : 1 
500 0561 1! IRB$V_IDX-ERR - if set, error occurred updating index : i 
501 036¢ 1! IRBSL_MIDR_TMP3 - VBN of insertion primary data bucket 2 1 
50 0565 1! IRB$W_POS_INS - offset of position of insertion 2 1 
50 0564 1! IRB$V_POSINSERT - 1 g i 
504 0565 1! IRBSV_PUTS_LAST - if set, current operation is sequential $PUT s 1 
505 0566 1! IRB$W_PUTUP_ID - RFA ID of new primary data record 3 1 
506 0567 1! IRB$L_PUTUP” VBN - RFA VBN of new primary data record : 1¢ 
ae 8268 ! IRB$V_UNLOCR_RP - if set, new record is locked : i 
509 0570 1! RAB - address of RAB s 1 
510 0571 1! RABSL_STV - return value from RMSINSS_OR_IDX if error 3 1 
511 ba76 1! occurred updating index : 1 
21¢ 0575 1! : 1 
51 0574 1 ! ROUTINE VALUE: s 1 
21 0575 1! s 1 
15 0576 1! RAC - invalid record access mode 2 1¢ 

516 0577 1! SEQ - new records not inserted in ascending sequential order : 1¢ 
517 0578 1! suc - success s i 
518 0579 1! 3 i 
519 b2go 1! Also see return value from: z 1¢ 
520 581 1! 3 i 
521 b2e¢ 1! RMSCONF IRM_EOF a | 
522 0585 1! RMSCSEARCH_TREE s i 
2$7 0584 1! RMSINS_ALL_SIDR z 1 
524 0585 1! RMSLOCR 3 1 
525 0286 1! RMSMAKE_IND : 1 
268 0587 1! RMSPCKDEC_CHECK : 1 
527 0588 1! RMSPUT_UPD_CHKS 2 i 
528 0589 1 RMSPUT-UPD~F IN : 1 
44 0590 1! RMSPUT-UPD~ SPL ee | 
530 0591 1! RMSRLSBKT s 1 
ey B28 1: RMS$RU_JOURNAL3 | 3 1 
3 0595 1! RMSUPDATE _IF 3 1 

53 0594 1! RMSUPDATE3B 3s i 
534 595 1! s 
535 596 1! SIDE EFFECTS: 3 Yl 
238 597 1! 3: 1 
3 208 1: AP is trashed. : 71 

538 5 1; Keybuffer 2 and 3 will have been trashed. : ei : : i 
539 600 1! If the current process is within a Recovery Unit, and the file is being 3 1 
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; 601 1! Recovery Unit Journalled then the operation is RU Journalled 21 
; 6 ¢ 1 i before any permanent modification to the file takes place. > 1 
3 ? ? : H If the wg choke is a sequential $PUT, the keybuffer 6 will contain the : 1 
Ps ° new or . e 

3; $44 605 1! If the routine returns with success of any type then the new record has ; 1 
3; 545 606 1! been inserted. 2 1 
3 278 0607 1! If the routine returns with success then any required index updating has > i 
3 ee 0608 1! taken place. : 1 
: 548 0608 1! If the rotuine returns with a RVU error then the nwe record has been : 1 
; 549 0610 1! inserted and any required index pei has probably taken place, 2 i 
; 220 0611 but some of the RRVs have probably not been correctly updated. : y 
; 582 $618 1 ine 7 1 
s 3 0614 1 3 i 
> 354 0615 BEGIN 2 1 
3 399 0616 3 1 
; 228 0617 EXTERNAL REGISTER 3 1 
3 95 0618 COMMON RAB_STR; | 2M 
; 558 0619 : 1 
; 559 0620 GLOBAL REGISTER 3 1 
; 560 0621 2 R_BDB, | : 1 
; 561 06 ; 2 R_IDX_DFN_STR, 2 1 
; 262 06 R-REC-ADDR_STR; : 1 
s 3 bese sv 
; 564 0625 BUILTIN rs | 
3 365 0626 2 AP, 3s 1 
; 566 0627 2 TESTBITSC; S| 
; 567 0628 2 : . : | : 1 
: 568 0629 2 ! Do some validity checks and initialization, and unlock the current 3 i 
3 44 0630 § primary data record if there is one to unlock. | : \ 
sath boss § IRABLIRBSV_UPDATE] = 0; i 
; 573 0634 2 IF TESTBITSC(IRABLCIRB$V_UNLOCK_RPJ) 3 1 
; 574 0635 2 THEN 3 i 
; 279 0636 é RMSUNLOCK (.IRABCIRB$L_UDR_VBNJ, .IRABCIRB$W_UDR_IDJ); : i 
; ere 0638 é RETURN_ON_ERROR (RMSPUT_UPD_CHKS()); : ‘i 
3; of 0640 2 : Make sure the record access is valid = only sequential and key access 27 
; 380 0641 2 ! is allowed. 33 
; 381 0642 2 : 2. 
; 286 Retz 2 ASSUME _C(RABSC_KEY, 1); : y 
; 584 645 IF .RABCRABSB_RAC] GTRU RABSC_KEY 31 
: 585 0646 THEN 3% 

: 286 et RETURN RMSERR(RAC); | H :, 
; 588 0649 ! If the record access mode is sequential and the last operation performed 3; i 
: 589 0650 : was also a sequential $PUT then make sure that the key of the new record : 7 
3 aay pe3! is greater-than or equal to the key of the previous record inserted. | : t 
; 236 ro ! Move the key into keybuffer 6 and set the state bit IRBSV_PUTS_LAST for 7 
3 33% eee the next operation in case it too is a sequential $PUT. : 1 
: 595 656 if .RABCRABSB_RAC] EQLU RABSC_SEQ | 71 
; 596 65 THEN . % 
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; Wr 6 BEGIN i J 
; 338 $38 3 
; 599 660 IF_.IRABCIRB$V_PUTS_LAST) 37 
: 600 661 THEN 3 3 
; 601 662 4 BEGIN 3 3 
; 60 665 4 1 
; 60 664 4 AP = 2; ; 1 
; 604 0669 4 IF RMSCOMPARE_KEY (.1RABCIRBSL_RBFI, 3 ¥' 
; 605 666 4 KEYBUF Rt6), 2 
; 606 0667 4 . 1DX_DFNCIDX$B_KEYSZ3) GTR 0 37 
; 607 0668 4 THEN 3; i 
; 608 be 9 4 RETURN RMSERR(SEQ); 3; 7 
; 609 670 ND; B: 
; 610 0671 3 7 
; 611 067 AP = 3; Bs 
; 61g 067 REC_ADDR = .IRABCIRBSL_RBFI; 7 
; 613 067% RMSRECORD_KEY (KEYBUF_ADDR(4)); | : ! 

; 615 0676 ; IRABCIRB$V_PUTS_LAST] = 1; .-F 
: 616 0677 END 37 
; 617 0678 2 ELSE 7 3 
; $18 6044 § IRABCIRB$V_PUTS_LASTJ = 0; : 
; 620 0681 ! Prepare to position to the point of insertion of the new record within the 3 ¥ 
; 621 068 ! primary index. 7 
; ose 068 : 7 7 
3 © 0684 IRABCIRBS$L_CURBDB) = 0; 3 1 
; 624 0685 IRAB ey ba = 0; 3 7 
; 625 0686 IRABLIRBSB_KEYSZJ = .IDX_DFNCIDX$B_KEYSZ); | 7 1 
: $86 0687 2 ——IRABLIRBSU_SRCHFLAGS] = TRBSH_POSINSERT; | : 1 
; ost pee? 5 | Move the record's key into keybuffer 2 and into keybuffer 3. | : i 
3 ri 0691 $ AP = 3; 3 7! 
; 631 069 : REC_ADDR = .IRABCIRBSL_RBFI: 3 1 
5 636 8687 RMSRECORD_KEY (KEYBUF_ADDR(2)); | . } 
H ose 9 ; CHSMOVE (.IDX_DFNCIDX$B_KEYSZ], KEYBUF_ADDR(2), KEYBUF_ADDR(3)); | : 4 
; 636 0697 ! If the key is a packed decimal string, then call the packed decimal | ‘7 
; $37 pene } validation routine. 3 1 
; 639 0700 IF .IDX_DFNCIDXSB_DATATYPE) EQLU IDX$C_PACKED | : V 
3 +} O70 RETURN_ON_ERROR (RMSPCKDEC_CHECK()); | : 1. 
: 643 0704 ! It is possible under a very restricted set of circumstances, that 77 
3 644 34 ' multiple positionings to the point of insertion will be required. Towards | 3 1 
3; 645 706 ! this end place i positioning code within an infinite loop that can only ay 
: 646 0707 ! be exited when it is firmly decided what to do with the new record. The eS 
5 ot thie } set of circumstances under which multiple positions will be required is: | : : 

3; 649 710 ! 1. The primary key of the new record already exists in the file. B: 
3; 650 711 ! 2. The file does not allow duplicate primary keys. $7 
; 651 ie ! 3. The user has allowed updates to the e P s 
5 026 071 ! 4. The user has requested an SUPDATE to be performed in such a case. By 
; 65 0714 ! 5. The stream must wait for the record lock on the record to be updated 3; 7 
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4 6 : AF to be granted before performing the SUPDATE. | : 1. 
; 6 $ HS ! In such a situation RMS must re-position to the point of insertion to eT 
3; § 718 ! determine whether it should still perform an SUPDATE, or whether that | : 1 
; $28 tah ; record has been removed, and it need do only a $PUT of the new record. | : ‘. 
; 660 721 WHILE 1 27 
; 661 7 ¢ DO 3 1 
; 066 7 BEGIN 3; 7 
; 66 724 7 7 
; 664 0725 LOCAL :F 
; 665 Bf $ STATUS; 3 7 
; 666 7 2B: 
; rot 4 4 3 Position to the point of insertion of the new record. : i 
; 669 0730 IRABCIRB$B_SPL_BITS] = 0; 3 1 
3 670 of 1 STATUS = RASCSEARCH_TREE(); : Y 
; 67 O73 ! If no primary index exists then create one at this time and - 1 
: OF. 0734 3 ' re-position. 3s 1 
; 674 0735 3 ! 3; 1 
; 675 0736 4 IF .STATUS<O, 16> EQL RMSERR(IDX) 3; ¥ 
; 676 0737 3 THEN 3 3 
3 Off 0738 4 BEGIN 3 
; 678 0739 4 $7 
; 679 0740 4 RETURN_ON_ERROR (RMSMAKE_INDEX()); 31 
; 680 0741 4 er 
: 681 toes 4 STATUS = RMSCSEARCH_TREE(); 2 14 
; 68 074 : END; er 
: 68 0744 | mr 
; 684 0745 3 ! Terminate the current operation if RMS could not position to the point 7 1 
; 685 0746 3 ! of insertion of the new record. 3% 
: 687 0748 IF NOT .STATUS 3 i 
; 688 0749 THEN $ 
; 689 0750 RETURN .STATUS; s iq 
; 690 0751 3 , . 314 
; 691 Or 36 3 ! If the IRBS$V_CON_EOF state bit is set, verify that no record exists Per 
; 69 0753 3 ! after the insert position which was just determined b 3% 
; 69 0754 ; ! RMSCSEARCH_TREE. This will always be a best guess in a shared 3 i, 
3; 694 0755 ! environment. This check is done by scanning the buckets along the 3 i 
; 695 0756 ! horizontal chain looking for non-deleted records until the end of the 2 
; 696 0757 ! chain is encountered. During this scan RMS must release the bucket 3 i 
; 697 oF 38 ! containing the insertion point of the new record if it isn't the 3 i 
: 698 759 ! last bucket. This is because an RRV update could noe a rightward 21 
; 699 0760 ' bucket locked and be trying to access this bucket. This would be a 3h 
; 700 0761 ! deadlock. If RMS is able to successful verify that there are no 3: 1 
; 701 3706 ! un-deleted records following the insertion point. then RMS 3 1 
; 70 076 !' re-positions to the point of insertion of the new record and 2 1 
; at the: : continues. : t 
; 705 9706 ! Note: IRBSV_CON_EOF is turned off after the first S$PUT or after any sk 
: 706 076 ' random $GET. sequential SGETs will merely return RMS$_EOF until the | et 
; ? 4 0768 i IRBSV_CON_EOF bit is off. ; f 
: 709 0770 IF .JRABCIRB$V_CON_EOF J mf 
; 710 0771 THEN 21 
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711 0772 4 BEGIN 

; ar 07735 4 
my 0774 & ! Save the VBN of the bucket containing the insert position. 

: 714 0775 4 ! RMSCONFIRM_EOF will use this VBN to re-position to this bucket 

s ie 0776 4 ! prior to returning if and only if there are no non-deleted records 

; rig gree : } following the current point of insertion. 
; at 1h : IRABCIRBSL_MIDX_TMP3] = .BBLOCKC.IRABCIRBSL_CURBDB], BDBSL_VBN); 

; 720 0781 4 ! Perform the check to see if there is a non-deleted record 

; 72) Ores & : following the current position of insertion of the new record. 
3 ts¢ 0783 4 : If there is, return an error; otherwise, reposition to the | 
3 tS? Bo ee 2 point of insertion for the new record and clear the state bit. 

; 725 0786 4 RETURN_ON_ERROR (RMSCONFIRM_EOF()); 

> 726 0787 4 RETURN-ON-ERROR (RMSCSEARCH-TREE()5; 

ry war 0788 4 IRABCIRBSY_CON_EOF] = 0; 

; ree 0789 : END; 

$ 6fey 0790 

; 730 0791 3 ! Make sure that RMS didn't see any duplicates if duplicates aren't 

3 73i 184 3 ! allowed. If RMS did see them and they are allowed, set the IRB$V_DUP 

: 32 0793 3 ' bit. 

3; Yo 0794 ; : 

: 734 0795 IF .IRABCIRB$V_DUPS_SEEN] 
; f39 0796 3 THEN 
> 736 0797 : IF NOT .IDX_DFNCIDX$V_DUPKEYS] 

3; 737 0798 THE 
|; 738 0799 4 BEGIN | 
; 739 0800 4 
; 740 0801 4 ! Determine whether an SUPDATE maybe done in place of the $PUT. 

: ei 44 : If so, set up do it, otherwise return the appropriate error. 

: 743 0804 5 IF NOT (STATUS = RMSUPDATE_IF()) 

: 744 0805 4 THEN 
; 745 0806 4 : - 
: 746 0807 4 ! If there is already a record in the file with the same 
; 747 0808 4 ; Ag key as the new record, but that record has been 

3: 748 0809 4 ! RU_DELETEd by either this very same process or a process 

; 749 0810 4 ! that has successfully completed its poceuer7 unit then 

; 0811 4 ! the new record is not a duplicate and a $PUT maybe done 
3 wy bai§ & : to insert it. In this case the positioning loop maybe | 
Se 08135 4 ! left as the point of insertion of the new record has 
s fos 0814 4 ' been located. 

3; «754 0815 4 : 

3 Toe 0816 4 IF .STATUS EQLU 0 

; 0817 4 THEN 

3 for 0818 4 EXITLOOP 

; 758 0819 4 : 
3; 759 0820 4 ! Otherwise, some error has been encountered, so return 
; 760 0821 4 ! the appropriate status. 

: 761 bess 4 : 

: 76 08 4 LSE 

: 76 0824 4 RETURN .STATUS; 

: 764 BB 5 4 é 

: 765 8 § 4 ! If RMS was able to lock the record to be updated without any 

; 766 0827 4 ! difficulties, and furthermore, found that it had not been 

; 767 0828 4 ! deleted within any recovery unit by this or any other process, 
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1$-s2p-19 4 : 
14-Sep-1984 9 ; 


then go ahead and update it. 
IF STATUS<O, 16> NEQU RMSSUC (OK_WAT) 


: 2 VAX-11 Bliss=32 


BEGIN 

IRABCIRB$V_UPDATE {fF w 1; 
STATUS = RASUPDATE3B(); 
IRABCIRBS$SV_UPDATE_IF] = 0; 
RET RN .STATUS; 


If RMS had to wait for a record lock to be granted on the 
record which is to be updated, then while it waited it 
released its lock on the primary data bucket. RMS must now 

! re=position back to the record, and the easiest way to do 

! this (taking into account that the record might have been 
deleted and RMS would want to do a $PUT now) is to 90 through 
the re-positioning loop one more time. The lock on the record 
itself has already been released. 


! 
END 
' The poate sores Loop maybe left because the new record's primary 


: key has been found to be a duplicate, duplicates are allowed, and 
: thus the point of insertion of the new record has been located. 
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a 
wn 
mn 


IRB$V_DUP] = 1; 

OOP; 
: The positioning loop maybe left because the new record's primary key 
' is not represented in the file, and thus, the point of insertion of 
the new record has been located. 
ELSE 

EXITLOOP; 

END; 

} Prepare to insert the primary data record. 

BEGIN 

GLOBAL REGISTER 
COMMON_10 


DB = .IRABCIRBSL_CURBDB); 
KT_ADDR = .BDBCBDBS$L_ADDRI; 


! Insert the primary data record. To do so the size of the primary data 

: record is computed, and an attempt is made to insert it into the current 
primary data bucket at the point of insertion. If there is insufficient 
! 
! 


! freespace in the bucket or insufficient record IDs, then a primary data 
' bucket split is done, and the new record is inserted appropriately. 


v4.0 
DISKSVMSMASTER: CRMS 


she Pa 
«SRC JRM3PUT .B32;1 
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RM3PUT 16-Sep-1984 01:57:49 VAX-11 Bliss-32 V4.0-74 Page 18 
V RMSPUT3B 1e-8ep-198e $5:07535 DI SKSVMGMASTERSCRMS SRCTRMSPUT.B32;1 79° (45 
; 825 & BEGIN 
$ $ $ ; 4 
; 888 4 LOCA 
: 4 8 889 4 ID_SPLIT 
: B29 0890 4 RETORD_SIZE; 
: 830 +94 4 
; 4 1 695 ? ID_SPLIT = 0; 
; 8 g 0894 4 ! Determine the amount of space the new record will occupy in the bucket 
3; 8 0895 4 ! and check for the availability of record IDs. If there are no record Ibs 
; 835 0896 4 : available in the bucket then the primary data bucket will have to be 
; 839 0897 4 ! split regardless of whether or not there is sufficient space in the 
3; § 0898 4 ! bucket for the new record. Both of these determinations are prologue 
; 838 0899 4 ! dependent. 
: 839 0900 4 : 
; 840 0901 4 IF .IFABCIFBSB_PLG_VER] LSSU PLGSC_VER_3 
: 841 0902 4 THEN 
; 84 090 : BEGIN 
; Bei 344 2 RECORD_SIZE = .IRABCIRBSW_RSZ] + IRCSC_FIXOVHDSZ; 
; 845 0906 5 IF .IFABLIFBSB_RFMORG) NEQU FABSC_FIX 
; 47 0908 3 RECORD_SIZE = .RECORD_SIZE + IRCSC_DATSZFLD; 
; 0910 5 : Check for the availability of record IDs. Because the file is a 
; 850 0911 5 ! prologue 1 or 2 file there maybe some free record IDs within the 
; 851 0912 5 : the bucket. Free IDs occur when records are moved out of a bucket as 
; S26 0913 5 ! the result of a bucket split and the primary data bucket splitting 
3 Sez Bare : was not their original bucket. If free IDs are found, they maybe used. 
: 855 0916 3 if -BKT_ADDRCBKTSB_NXTRECID] EQLU 0 
: Bet 344 : OKT _ADOREER TSS _AATRECIOS GTRU .BKT_ADDRCBKTSB_LSTRECID) 
: 859 0920 5 IF NOT RMSBKT_SORT(.BKT_ADDR) 
; 860 0921 5 THEN 
; 861 0922 6 BEGIN 
; 508 0923 6 ID_SPLIT = 1; 
; 86 0924 6 BKT_ADDRCBKT$B_NXTRECID] = 0; 
3 864 0925 6 IRABLIRB$W_POS_INS] = .REC_ADDR - .BKT_ADDR; 
; 865 0926 5 END; 
; 866 0927 5 END 
: 867 0928 4 ELSE 
: 868 0929 5 BEGIN 
; 869 0930 5 RECORD_SIZE = RMSPACK_REC(); 
: Bre bats 2 RECORD_SIZE = .RECORD_SIZE + IRCSC_FIXOVHSZ3; 
: a7 . 0933 5 ! ALL version 3 files have a record size, except fixed length records 
: ar doe ; that have not been compressed. 
; 875 0936 > iF - JFABLIFBSB_RFMORG] NEQU FABSC_FIX 
: 877 938 6 (, IFABLIFBSB_RFMORG] EQL FABSC_FIX 
: 879 0940 6 .IDX_DFNCIDX$B_DATBKTYP] NEQU IDX$C_NCMPNCMP) 
; 880 0941 5 THEN 
; «881 0942 5 RECORD_SIZE = .RECORD_SIZE + IRCSC_DATSZFLD; 
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RMSPUT ise 1984 01:57:49 VAX-11 Bliss=-32 V4.0-74 Page 19 RMS 
v04- RMSPUT3B 12786871382 93:34: 5 DL KSVMGMASTERSERMS. SRCIRMSPUT .832; 1 . (4) v04 
; 88 943 
; ti ate : Check for the availability of record IDs. 
; 885 94 IF .BKT_ADDRCBKT$SW_NXTRECID] EQLU 0 
3; 9 Bae THEN 
; 88 948 6 BEGIN 
; 888 ba 6 ID_SPLIT = 1; 
; 889 950 § IRABLIRBSW_POS_INS] = .REC_ADDR - .BKT_ADDR; 
: 890 0951 END; 
; «4891 B326 & END; 
; o36 0955 4 : A 
; B32 4 : If both record IDs and sufficient space are available in the bucket then 
; 894 955 4 ! insert the new record; otherwise, split the primary data recora inserting 
; 895 9328 4 ! the new record in the process. 3 7 
; 896 0957 4 ' $7 
; 897 0958 4 IF .ID_SPLIT 37 
; 898 0959 4 R 
; 44 goes : NOT RMSINSERT_UDR (RECORD_SIZE) 
; 901 P 0962 4 RETURN_ON_ERROR (RMSPUT_UPD_SPL (.RECORD_SIZE), BEGIN 
; 902 P0965 4 IRABCIRB$V_UPDATE]) = 0; 
: 903 P 0964 4 RMSCLEAN_BDBB() 
> 904 0965 5 END) 3 
; 905 0966 5 . : 
: 906 0967 5 ! If RMS was able to insert the new record into the current bucket without : 
: 907 0968 5 : splitting it and if the operation is taking place on a RU Journallable : 
: 908 0969 5 : file within a Recovery Unit, then RU Journal the operation at this time : 
; seg Baoy ; before the modified primary data bucket is released. 
; i 0972 5 : NOTE: if a primary bucket data split was required, then the RU | 
3; Ne 0973 5 : Journalling of this operation would have taken place within 
; a bone : RMSPUT_UPD_SPL before the modified original bucket was released. : 
; 915 0976 4 ELSE : 
; 916 0977 4 F .IFABCIFBSV_RUPJ : 
; 917 0978 4 N ; 
; 918 0979 5 BEGIN : 
; 919 0980 5 REC_ADDR = .JRABCIRBSL_RBFI; 
: 920 0981 5 
: 921 P0982 5 RETURN_ON_ERROR (RMSRU_JOURNAL3 (RJR$_PUT, 
: 922 P 0983 5 . [RABCIRBSL_PUTUP_VBNJ, 
: 923 P 09 5 - IRABCIRBS$W_PUTUP_IDJ, 
; 924 P0985 5 - IRABCIRB$W_RSZ]), 
s eo bee 5 RMSCLEAN_BDB()); 
; 926 987 4 END; : 
: 927 0988 END; 
g Pes 0989 : 
; ! $43 The new record, having been inserted, is now locked. , 
; at . 343 ae ee (RMSLOCK (. 1RABCIRBSL_PUTUP_VBN], .IRABCIRB$W_PUTUP_ID]), 3 4 
; 338 P 0994 IRABCIRB$V_UPDATE) = 0; a6 
; 934 P 0995 RMSCLEAN_8DB() gt 
; 935 996 END); : M 
: 236 997 3; ¢ 
; 0998 IF NOT .RABCRAB$SV_ULK) 
; 938 0999 THEN 
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372 8 IRABCIRB$V_UNLOCK_RP] = 1; 

941 0 ! If the primary data bucket has split, and the primary index must be 
ars } updated, then do so at this time. . , 

944 0 IF TESTBITSC (IRABCIRBSV_UPDATE)) 

945 0 THEN 

946 0 BEGIN 

947 0 

948 0 LOCAL 

949 1 STATUS; 

950 1 

951 1 IRABCIRBSB_STOPLEVEL] = 1; 

93¢ IRABCIRBSW-SRCHFLAGS] = IRBSM_POSINSERT; 

954 1 ! If an error occurs and no previous error has been saved, save 
gap : the new error status. 

957 1 IF NOT (STATUS = RMSINSS_OR_IDX()) 

958 1 THEN 

959 BEGIN 

960 IF .RABCRABSL_STV] EQL 0 THEN 

961 RABLRAB$L_STV] = .STATUS OR 1°16; ! 1°16 is RMS's facility code 
96 IRABCIRBSV_IDR_ERR] = 1; 

96 END 

964 

965 END 

966 } 

! If no index update is required, then release the primary data bucket 
oe8 and any (evel above that might have been locked during positioning. 
970 ELSE 
971 BEGIN 


! Note that the original bucket may have been written with a keep lock 
! or may not have been released at all yet, — on the path taken 
! to get here. This is assuming that we do not want to force a write of 
! the bucket if no split has taken place to take advantage of deferred 
} write. If this notion changes, so must this code. 


BDB = .IRABCIRBS$L_CURBDB); 
IRABLIRBS$L_CURBDBJ = 0; 


RETURN_ON_ERROR (RMSRLSBKT(O), RMSCLEAN_BDB()); 
IF (BDB = .IRABCIRBSL_LOCK_BDBJ) NEQ 0 
THEN 
BEGIN 
fexat thee al 
IRABLIRBS$L_LOCK_8DB) = 0; 
END; 
END; 
Insert all of the alternate keys. 
RETURN_ON_ERROR (RMSINS_ALL_SIDR(), RMSCLEAN_BDB()); 


Be Se Se Be Se Be Oe Oe Se Be Se Be Oe See Be Se Se Be Se Be Se FH FH SH SH Se Be SH eH Ss Oe ee Oe Oe Se Se SH Se Oe BHO Se Se Se Se Se Se Se Se Se Sees Se eee 
o 
o 
~N~ 
ee ee a a ae ed od dd od 
SOOOCOCOCOSCSOSOSOSOOSOSOSOOOO COCO OCOS SCC COCOCSCOCOOCOCOOOCOOCOCOOCOOCOOCOCOOCOOOCOO 
PUPP BS BS BB EEE EE EWN INI rpopononononorororon 
ANEW OO OONOA NEW OOD NAME WIN  O ODNAUESWN (OC ODNOAUS WR OO ONOULSWWR—O 
Tee ee ewer lal al et et et et et et et ot et et et ee ed oe et et et ed a a al a al a el a et ot et ot ot oe ot ot ot ot le ee | 


pe ae nd Bh Bimota se saa ag A Bes, 5 


RMSPUT bese 1984 2:57:49 VAX-11 Bliss-32 V4.0-74 Page 21. 
vod RMSPUT3B 12-9007} 8k eet DL EKSVMEHASTER SCAMS. Sac URMSPUT .832:1 . (a) | 
5 1057 ' Finish the operation. ; 
: $37 i sh RETURN ato sige Q 
; U NO: ; 
: 999 1060 . tt ; 
: 1000 1061 END ; 
+ 1001 1062 7 END; ; 
OOFC 8F BB 00000 RMSPUT3B:: : 
PUSHR #*M<R2,R3,R4,R5,R6,R7> : 0488 | ; 
5E 04 ¢2 00004 SUBL2 #4, SP : | ; 
06 Ad 08 8A 00007 BICB2 #8, 6(IRAB) + 0632) ; 
10 04 Ad 0D ES 00008 BBCC #13, 4(IRAB), 1$ : 0634 ; 
52 00Bc C9 3C 00010 MOVZWL 188(IRAB), R2 + 0636 : 
51 0080 C9 pO 00015 MOVL 176(IRAB), R1 : : 
000000006 EF 16 OOO1A JSB RMSUNLOCK : | ; 
00006 30 00020 1$ BSBW §RMSPUT_UPD_CHKS > 0638. ; 
3B 50 £9 00023 BLBC STATUS? 3$ : | ; 
01 1E AB 91 00026 CMPB =-_-30(RABS, #1 > 0645 ; 
07 1B O002A BLEQU : ; 
50 8644 BF 3C podec MOVZ2WL #34372, RO : 0647) : 
2—E 11 00031 BRB : ; 
1E AS 95 00033 28 TSTB  30(RAB) > 0656) : 
4C 12 00036 BNEQ : | : 
27 04 Ad 06 £1 00038 BBC #6, 4(IRAB), 4$ > 0660) : 
5C 02 DO 0003p MOVL #2. AP + 0664 | : 
50 0084 CA 3C 00040 MOVZWL 180(IFAB), RO > 0666 | : 
50 05 C4 00045 MULL @ #5, R : F 
53 50 60 Ad C1 00048 ADDL3 96(IRAB), RO, R3 : | ; 
50 20 A? 9A 0004D MOVZBL 32(1IDX_DFN), RO > 0665. : 
51 58 =A b0 00051 MOVL  88(IRAB), Ri : ; 
00006 30 00055 BSBW RMSCOMPARE _KEY 3 : 
50 D5 00058 TSTL RO > 0667 | : 
08 15 OO05A BLEQ 4$ ; ; 
50 86AC BF 3C 0005C MOVZ2WL #34476, RO 3 0669 | : 
O1FA 31 90061 3$: BRw 32$ : : 
5C 03 DO 00064 4$: MOVL #3, AP : 0672 | : 
56 58 Ad DO 00067 MOVL  § 88(IRAB), REC_ADDR > 0673 | : 
50 00B4 CA 3C 00068 MOVZWL 180(IFABS, RO > 0674 | ; 
50 05 C4 0007 MULL2 #5, R 3 ; 
60 B940 Hi 9007 PUSHAB @96(IRAB)CRO] : | ; 
00006 30 0007 BSBW = RMSRECORD_KEY : : 
5E 04 CO 0007A ADDL2 #4, SP : : 
04 Ad 40 8F &88 0007D BISB2 #64, 4(IRAB) : 0676 F 
05 11 00082 BRB é$ ; 0656 | : 
04 a9 40 8F 8A 00084 S$: BICB2 #64, 4(IRAB) : 0679 | ; 
20 Ad ps 0089 6$: CLRL  32¢(fRAB) > 0684 | ; 
41 Aad 94 0008C CLRB = 65 (IRAB) : 0685 | ; 
00A6 «C9 20 AZ 90 O008F MOVB 32(IDX_DFN), 166(IRAB) ; 0686 | : 
42. AY 1 80 0095 MOVW #1, 66TIRABS : 0687 ; 
5( 3 D0 00099 MOVL #3. AP : 0691 | : 
56 58 a9 DO 0009C MOVL  88(IRAB), REC_ADDR ; 0692 | ; 
50 00B4 CA 3C OO0A0 MOVZ2WL 180(1FABS RO ; 0693 | : 
60 B940 9F 000A5 PUSHAB @96(1RAB) CRO : | ; 
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RMSPUT 
V04-000 RMSPUT3B 


if 
: 1b-se 1984 01:57:49 VAX-11 Bliss-32 V4.0-74 Page 23 RMS 
RYSPUT3B 1e-sep-19 4 OF: 31:92 DISKSVMSMASTER:CRMS.SRCIRM3PUT.B32:1 -” & v04 
07 AS 06 AS 91 00166 CMPB (BKT_ADDR), 7(BKT_ADDR) : 0918. ; 
OU BIG sos: Ba lou ‘ow! 
00006 4 19 BSBw RMSBKT_SORT : ; 
5E 4 C6 1 ADDL2 #4, SP : ; 
g3 6 fo 15 abe Hf {D SPLIT : 0923 
06 AS 94 0178 CLRB (BKT_ADDR) > 0924 ; 
20 11 0017E BRB $ + 0925 | : 
00006 30 0180 17$: BSBW RMSPACK_REC + 0930) ; 
6E 50 D9 018 MOVL. RO, RECORD_SIZE : ; 
6E 09 § 00186 ADDL2 #9, RECORD-SIZE + 0931) 
01 50 AA 91 001 CMPB  - BOC IFAB), #1 : 0936) 
06 12 0018D BNEQ : 
06 29 AZ «91 0018F CMPB = G1 CIDX_DFN), #6 + 0940 
03 13 00193 BEQL 198 : 
6E 02 CO 00195 18$:  ADDL2 #2, RECORD SIZE + 0942 | 
06 AS 85 00198 19$:  TSTW  6(BKT_ADDRY + 0946 
08 12 00198 BNEQ 21$ : 
52 01 00 0019 MOVL #1, ID_SPLIT > 0949. 
48 Ad 56 55 AS OO1AO 20$: SUBW3 BKT_ADBR, REC_ADDR, 72(1RAB) > 0950 | 
0B 52 £8 OO1AS5 21$:  BLBS  ID_SPLIT. 22$ : 0958 | 
SE bp 0018 PUSHL + 0960 
00006 30 OO1AA BSBW  §RMSINSERT_UDR : 
SE 04 CO OO1AD ADDL2 #4, SP : 
12 50 €8 00180 BLBS RO, 24$ F 
6— DD 001B3 22$:  PUSHL RECORD SIZE + 0965 | 
00006 30 00185 SBW = RMSPUT~UPD_SPL ; | 
SE 04 CO 001B8 ADDL2 “gf ; | 
28 50 €8 001BB BLBS STATUS, 25$ : 
06 A9 08 8A OO1BE 23$:  BICB2 #8, 6(IRAB) : 
0091 31 O001C BRW 30$ ; 
1E OOA2 CA 02 £1 001C5 24$: BBC #2, 162(1FAB), 25$ : 0977 
56 58 AD bd 001¢8 OVL  88(IRAB), REC ADDR + 0980 
7E 56 «ADs 3C:«OOICE MOVZ2WL 86(IRAB), -( > 0986 
7E 0080 c9 3C 00103 MOVZ2WL 128(IRABS, -(SP) ; 
78 AQ DD 00108 USHL  120(IRAB) : 
13 DD 001DB PUSHL #19 : 
000000006 EF 16 0010p JSB RM$RU_JOURNAL3 : 
SE 10 CO OIE ADDL2 #16, SP F | 
6D 50 , O1E6 BLBC STATUS, 30$ ; 
52 0080 C9 3C OO1E9 258:  MOVZWL 128 (1RAB) R2 : 0996. 
51 78 Ad DO OOIE MOVL  120(IRAB). R1 : | 
000000006 EF 1g OIF JSB RMSLOCK : | 
3 0 «9 OO1F BLBC STATUS, 23$ : 
04 06 AB 02 3 001FB BS a 6(RAB), 26% : 0998 | 
05 Ag <0 0200 BISB2 # é. 5 (IRAB) > 1000 
22 04 Ad 1 f 0 04 26$: BCC #19. 4CIRAB), 28% > 1005 
41 Ad 01 90 00 MOVB #1, 65(1RAB) ; 1018 
42. Ad 01 ; 0200 MOVW #1. 66(IRAB) : 1013 | 
00006 0 11 BSBW RAE INSS_OR IDX : 1018 
39 50 E8 00214 BLBS STATUS, 298 ; 
OC AB D5 00217 TSTL 12 (RABS > 1021) 
09 12 OO2TA BNEG 2 ; : 
0c «AB 50 00010000 &F ¢ 0 i¢ BISL3 #65536, STATUS, 12(RAB) > 1022 | 
06 Ag 92 8 00 g 27$:  BISB2 #2, 6(fRAB) > 1023 | 
11 00229 BRB 29$ : 101 | 
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614 bytes, Routine Base: 


; Routine Size: 


$8 
s 


kK 3 
16-Sep-1984 01:57:49 VAX=11 Bliss-32_ V4.0-74 P 5 
RMSUPDATE _IF 10231384 93:34:98 DT SKSVMSMAS TERS RMS. SRCSRMSPUT .B32;1 7 Be 


IMPLICIT OUTPUTS: 


address of IRAB 

3 s ID of primary data record to be updated 
IRB$L_PUTUPD_VBN VBN of primary data record to be updated 
IRB$V_UNLOCK_RP if set, release current record lock on errors 


ROUTINE VALUE: 


IRAB 
IRB$W_PUTUPD_ID 


; 1004 1 1 XZSBTTL "RMSUPDATE_IF' | 
; 1292 } 9? ! ROUTINE RMSUPDATE_IF : RLSLINKAGE = | 
; 1997 106? | 64 | 
3; 1008 1068 1! 

; 13% : 3 ! : FUNCTIONAL DESCRIPTION: 

; 1011 1071 1! Perform all of the pre-processing necessary to convert a $PUT into | 
; ioig 1826 : } an SUPDATE. This includes: 
; 1014 1074 1! 1. Positioning to the record to be updated. | 
3 1st? 197? | 2. Locking the primary data record provided record locking has not been 
3 : sable 

3 1017 1077 1: 3. Determining whether this record can be updated, or whether the new | 
; 138 ta } } record should still be inserted based upon: 

3; 1020 1080 1! a. The ease with which the record lock was obtained. 

; 1021 1081 1! b. The RU_DELETE status of the record which has just been locked. 

; 10s¢ 1086 1! c. Whether updates are allowed at all on the file. 

3 er bs F : } d. Whether updates are allowed in this specific case. 

; 1098 1085 1 | CALLING SEQUENCE: | 
3; 1026 1086 1! 

> 1027 1087 1: BSBW RMSUPDATE_IF () | 
: 1028 1088 1! | 
; 9 1089 1 ! INPUT PARAMETERS: 

; 1030 1090 1! NONE 
: 1031 1091 1! 
; 1036 1092 1 ! IMPLICIT INPUTS: 

: 103 1093 1! 
; 1034 1094 1! If - address of IFAB an 
; 1035 1095 1! IFBSV_NORECLK - if set, record locking is disabled 
: 1036 1096 1! IFB$V_UPD - if set, updates are allowed on this file 
3; 1037 1097 1! IFB$B_RUP - if set Recovery Unit is in progress | 
Z Oe : 98 : IFBSV_RU_RLK - if set, perform pseudo record locking 
3; 1040 1 1! AB - address of IRAB 

3; 1041 1 +f IRB$L_CURBDB - address of buffer descriptor for UDR's bucket 

; : § : : IRBSL_LST_REC - address of Last non-deleted record | 
5 1044 1 1} AB - address of user RAB control block 
: : 5 ; ! RABSV_UIF - if set, a SPUT maybe converted into SUPDATE 

3 ! ; : ! REC_ADDR - address following record to be updated 

3 1049 1 1 ! OUTPUT PARAMETERS: 

3; 1050 1 1! NONE 

Be HT 

3 1 : 1 1! 

3; 1054 1 1! 

: 1055 1 1! 

: 1056 1 1! 

: 1057 1 1! 

3; 1058 1 1! 

: 1059 1 1! 

: 1060 1 '§ 


SSLSSRARARGERERREREESE 
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RM3PUT 18-Sep-19 4 01:57:49 VAX-11 Bliss-32 V4.0-74 Page 26 

vOe-000 RMSUPDATE_IF 14-Sep-1984 93:34:92 DL SKSVMGHASTERSLRMS SRCSRMSPUT .B32; 1 8 

: 1061 1121 1! 0 - a SPUT is to be performed ; 
; 1806 11 ¢ 1! RLK - record to be updated is locked by another stream : 
: 106 11 : 3 DME = dynamic memory exhausted : 
; 1064 1124 1! suc = success ‘ 
; 1065 lier 3 3 OK_WAT = success, but had to wait for record lock : 
3 1206 11 § 1: OK_ALK = success, but this stream already had this record locked ‘ 
; 1oe8 1 ! OK_RULK = success, but this stream had locked this record within a RU : 
; 1069 1129 1 ! SIDE EFFECTS: : 
; 1070 1130 1! ; 
s tal 1131 1! If a decision is made to perform an SUPDATE, then the record to be : 
3; 1 if 11 ¢ 3 updated is positioned to, made the current record, and locked ‘ 
; 107 11 1! (the latter if record locking is not disabled). Under certain : 
3; 1074 1134 1! circumstances, this record maybe reformated. ; 
: 1075 1135 1! If a decision is made to perform a $PUT, then any record locks requested ; 
; 1076 1138 1: within this routine are released and this routine returns 0 with | : 
; 1077 1137 1! REC_ADDR pointing at where the new record is to be inserted. Under ; 
; 17s \i38 1} certain circumstances a record marked RU_DELETE might have been : 
3; 1079 1139 1! deleted from the file. ; 
; 1080 11440 1! On any errors, or when RMS decides it must perform a re-positioning, $ 
; 1081 1141 1! any record locks granted within this routine are released. : 
: es 1136 1! On errors that terminate the current operation, this routine releases : 
; 108 1145 1! all bucket locks held by the stream. : 
3: 1084 1144 1! F 
: 1085 1145 1 !<- : 
3; 1086 1146 1 : 
agg tesim : 
; 1089 1149 BUILTIN F 
: 1090 1150 2 AP 3 
i; 1091 1151 8 TESTBITSC; | ; 
3 1998 1188 2 EXTERNAL REGISTER F 
3: 1094 1154 2 COMMON_RAB_STR, | 3 
3 1095 1155 2 R_IDX_BFN_STR, 3 
; 1096 1156 2 R_REC_ADDR_STR; F 
; 1097 1157 2 3 
: 1098 1158 § LOCAL 3 
: 1099 1159 P F 
; 1100 1160 2 SAVE _REC_ADDR, : 
3: 1101 1161 § STATOS, 3 
Wp 8 ; bea! 
: Ht 3 1188 : Position to the preceeding record, the record which is to be updated. : 
: 1106 1166 SAVE_REC_ADDR = .REC_ADDR; 3 
: 1107 1167 REC_ADDR™= .IRABLIRBSL_LST_REC); | : 
: 1109 1169 $ ! If record locking is enabled, lock the record RMS has positioned to, : 
: 1319 1100 otherwise, assume success for the time being. : 
3 i1i¢ 1196 AP = 3; : 
3111 117 3 
ee 2 , 
3 1116 138 GLOBAL REGISTER : 
3 1117 117 R_BDB; : 


sz | 


Liss-32_V4.0-74 : 7 
MASTER- CUMS SRCTRMSPUT.832;1 — By 


M3 
16-Sep-1984 :57:49 VAX=-11 
voo- RMSUPDATE_IF ae et) a te oe 
VBN = RMSRECORD_VBN(); 
END; 


ID = RMSRECORD_ID(); 
IF NOT .IFABCIFBSV_NORECLK] 
(, IFABCIFBSV_RU_RLKJ 
- IFABCIFB$V_RUP J) 
THEN 
IF yh = RMSLOCK (.VBN, .1D)) 
- STATUS<0,16> NEQU RMSSUC(OK_ALK) 
IRABCIRB$V_UNLOCK_RP] = 1 
eLse IRABCIRBS$V_UNLOCK_RP] = 0 
STATUS = RMSSUC(); 
! RMS is able to lock the record it has positioned to without waiting for 
! the lock to be granted, but finds that this record has been deleted within 
i a recovery unit. In this case, RMS may proceed to insert the new record 
! instead of converting the current operation into an SUPDATE. Furthermore, 
: If the RU deleted record had been deleted within another process's 
! recovery unit (which has since completed successfully), RMS may now delete 
this record. 
if STATUS 
“BTATUS<O.16> NEQU RMSSUC(OK_WAT) 
-REC_ADDRCIRC$V_RU_DELETE) 
THEN 
BEGIN 
! Unless this stream already had this record locked, release the Lock 
! that was granted above. In either case, clear the bit IRBS$V_UNLOCK_RP 
so no attempt will be made to release a record lock on any Subsequent 
! errors. 
' 
if TESTBITSC (IRABCIRB$V_UNLOCK_RPJ) 
RMSUNLOCK (.VBN, .1D); 
! If the RU deleted record has been deleted within another process's 
! recovery unit or within the current process's recovery unit and the 
' recovery unit has successfully completed, then delete the record for 
good, and re-position to the new record's point of insertion. 
iF NOT ((.STATUS<0,16> EQLU RMSSUC(OK_RULK)) 


(.STATUS<0,16> EQLU RMSSUC(OK_ALK) 
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nN 3 | 
RMSPUT 16-Sep-1984 :57:49 VAX=-11 Bliss=-32 V4.0-74 Pa 8) 
voe-000 RMSUPDATE_IF 127808- 1382 04:31:98 DISKSVMSMASTER:CRMS.SRCIRM3PUT.B32:1 >” ty 
3 THEN 
BEGIN 
GLOBAL REGISTER | 
R_BDB_STR 
R-BKT-ADDR; 
LOCAL 
SAVE_REC_ID; 


SAVE REC ID = .REC_ADDRCIRCS$W_IDJ; 
REC_ADDREIRC$V_RU_BELETE) = 8: 
REC_ADDRLIRCSV_RU_UPDATEJ = 0; 


BDB = .JRABCIRBSL_CURBDB); 
RMSDELETE_UDR(); 
BDBLBDBSV~DRT) = 1; 


! If the ID of the record REC_ADDR points to is the same as the | 
ID of the record just deleted, then the record could not be 
completed deleted; therefore, position past it to the point of | 
| 
| 
| 


SUSU SIS EB BB BE EE EAI 


O00 00 0000 


insertion of the new record. 


DONA VE WN $0 OONOUE WN" OVDONOU 


SAVE_REC_ID EQLU .REC_ADDRCIRC$W_IDJ 
RMSGETNEXT_REC(); 


el et te 


F . 
HEN 


Suwn 


! If the record which has been locked was already locked by this process 
(presumably within a recovery unit), then this record can not 
i 


SRS SS So SVS VSS SSS SSS SPOS OSI NSS 


deleted at this time. Just restore the address of the point of 
insertion of the new record. 
ELSE 
REC_ADDR = .SAVE_REC_ADDR; 
; Return a status of 0 to signal that a SPUT should still be done. | 


STATUS = 0; 
END 


RMS is able to lock the record it has positioned to without waiting for 
the lock to be erented. and furthermore finds that this record has not 
been deleted within a recovery unit; or, it encountered an error in its 
attempt to lock the record. In the former case, RMS may proceed to SUPDATE 
this record provided updates are allowed in this particular circumstance. 
In the latter case, RMS will change the error to something more 

apprese sete if the record had been locked and updates would not have been 
allowed. If this routine is to return an error, all locked buckets are 
released at this point. 


OTN mee ee me et et et meme 
lon 


SE 
aes NEQU RMSSUC(OK_WAT) 
BEGIN 


a ee me ee ee ee ee ee ee ee ee ee ee ed ed ed ed od od od ed 
me ew a ee a ed od wd = 4 do = =) = dd 3 


SE eee ww ww ww ww Pt ot ot ot oT ot oF or oF oF at ot ot ot nt ot ot et et et et et et et et et ttt 


Be Se Se Se Se Os Ge Be Se Se Oe Se Se Se Be Se Se Se Se Fe Ge Fe Se Be Ge Se Ge FH Ss Be Ge Ge Ge Be Se Se Se Se SH Se Se Se Se Se Se Se Se Ge Se Se Se Gee Se Se Bees 


Be Se Se Se Se Ge Se Se Se Se SH Se Se Se Se Se Se SH Se Se Se Se See Ge Sees Se Se Se Se Se Se teas 


; 3 § 129 

.S 129 

; 3 1294 
3; 1235 1295 
3: 1236 129 

3: 1237 129 

3; 1238 1298 
3: 1239 1299 
3; 1240 1300 
Be 18 
; 1 rk 1 68 
3 1244 1304 
: 12465 1305 
: ists 1306 
3 1247 1307 
3; 1248 1308 
3 1s82 1309 
: 1250 1310 
3: 1251 1311 
3 1$26 1316 
; 125 131 

: 1254 1314 
3; 1255 1315 
3: 1256 1316 
s 1257 1317 
3; 1258 1318 
3; 1259 1319 
: 1260 1320 
: 1261 1321 
3 1508 1322 
: 126 1323 
3 1264 1324 
3; 1265 1325 
3 1266 1326 
3 1267 1327 
3: 1268 1328 
3 1269 1329 
: 1270 1330 
3 1271 1331 
3 1¢?¢ 1356 
: 127 133 

GeO 
; 1598 138 
: if 444 1332 
3; 1278 1338 
: 1628 1339 
: 1280 1340 
| 
: 1588 1328 
: 1286 1344 
: 1285 1345 
2s 4 1346 
: fs t4 1347 
; 1288 1348 


RM3PUT 
v0z-000 RMSUPDATE_IF 
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4 
1b-Se -1984 01:57: VAX=11 Bliss-32 V4.0-74 
10-80-1984 94504598 DISKSVMSMASTER:CRMS.SRCJRM3PUT .B32;1 


: ner the current status into the appropriate error status if the 
: file has not been opened for update access or updates are not 
! allowed in this particular circumstance (ie - a $PUT may not be 


} converted into an SUPDATE). 
If NOT .RABCRABSV_UIFJ 
STATUS = RMSERR(DUP) 
IF NOT .IFABCIFBS$V_UPD) 
STATUS = RMSERR(FAC); 


! If a $PUT maybe converted into an SUPDATE, then setup to do the 
SUPDATE. 
if .STATUS 
THEN 
BEGIN 
IRABCIRBSL_PUTUP_VBN] = .VBN; 
IRABLIRB$SW_PUTUP_ID] = .ID; 


! Under the following set of circumstances, reformat the record 


! which is to be updated: 


space for tue duration of ¢ 
would have been Lost. 


nm 
e 


the previous SUPDATE hai been done. 
a REC_ADDREIRCEV_RU_UPDATE) 
IF NOT .IFABCIFBSV_"UuPJ 
4 ATR 1 EQLU RMSSUC() 
BEGIN 
GLOBA. REGISTER 
«_BKT R; 


an Pend 0 eo me ee me meme memes 


z=" 
m 


1. The record was put into a special format after a previous 
SUPDATEing within a ape it | unit in order to preserve 
e recovery unit which otherwise 


Either the current process is not in a recovery unit, or 
the current stream was aole to directly obtain the record 
indicating the completicn of the recovery unit in which 


4 ADDR = , BOL OCKE. IRABLIROSL _CURBDBI. BDBSL_ADDRI; 


M5RU_REFORMAT(); 


END 


into the SUPDATE, then release all bucket locks and an 
locks that this routine has obtained before returning 


LSE 


th 


If some error has been encountered in this routine whether in 
Locking the record to be updated or in the conversion of the $PUT 


record 
e error. 


RM 
vO 


3 
4 


a + 


C4 | 
16-Sep-1984 01:57:49 - VAX=11 Bliss-32 V4.0-74 p 0| 
12-88-13 OF: 8f 82 DI SKSVMENASTER SCAMS. SRCORMSPUT .832: 1 — (a | 


RMSUPDATE_IF 


04 
; 1289 1349 4 BEGIN 
; 1290 1350 4 
: ; 4! ' 1 2 TESTBITSC (IRABCIRBSV_UNLOCK_RPJ) 
: 129 1 : 4 RMSUNLOCK (.VBN, .1D); 
> 1296 1354 4 
; 1295 1355 4 RMSCLEAN_BDB(); 
: 1296 1356 END; 
: 1297 1357 
3; 1298 1358 END 
: 1299 1359 
; 1300 1360 : If RMS had to wait for a record lock to be granted, then while it 
; 1301 1361 : was waiting it had to release the bucket containing the record it 
3 1308 1308 ! eventually was able to lock. Because anything Hs have happened 
; 130 136 ! once this stream released the primary data bucket including the 
: 1306 1364 ! deletion of the record RMS has locked, what RMS must do is force 
; 1305 1365 ! a re-positioning so that it may re-determine whether it should 
3; 1306 1366 ! insert the new record or use it to update an existing record. 
; 1307 1367 : Before returning so that the re-positioning maybe done, RMS releases 
: 1308 1368 3 ! the record lock it had to wait for. 
3; 1309 1369 3 ! 
; 1310 1370 ELSE 
3 1311 1371 BEGIN 
; 13g 1376 IRABCIRB$SV_UNLOCK_RP]) = 0; 
3; 131 137 
3 1314 1374 4 IF (STATUS = RMSUNLOCK (.VBN, .1D)) 
3; 1315 1375 3 THEN 
3; 1316 1376 4 STATUS = RMSSUC(OK_WAT) 
: 1317 1377 3 ELS 
3; 1318 1378 3 RMSCLEAN_BDB(); 
3 1319 1379 2 ND; 
:; 1320 1380 2 
3 1321 1381 2 ' Return status. 
: 1356 1386 § : 
3 132 138 RETURN .STATUS; 
: 1324 1384 2 
3 Wes 1385 (1 END; 
3C BB 00000 RMSUPDATE IF: | 
POSHR #*M<R2,R3,R4,R5> ; 1065 | 
5E 04 cs 00002 SUBL2 # ; 
55 56 DO 00005 MOVL REC_ADDR, SAVE REC_ADDR 3 1166 | 
56 4C AY DO 00008 MOVL 76(TRAB), REC_ADDR 3 1167) 
5¢ 03 ° Opoor MOVL #3, A : 1172 
00006 O00F BSBW  RMSRECORD_VBN : 1179 
54 50 be Boi 8 MOVL RO, VBN 3 
00006 30 0001 BSBW = RMSRECORD_ID ; 1182 | 
0c 0 AL 03 €1 oe BBC #3, OCIFAB), 1$ > 1184 | 
28 QOA2 CA 03 £1 000 BBC #3. 162(IFAB), 3 > 1186 | 
22 00A CA 9¢ Ei 00026 BBC #2, 162(1FAB), 3$ > 1188) 
1 4 DO 0002C 1$ MOVL VBN, R1 ; 1190) 
0G000000G EF 146 0002F JSB RMSLOCK : 


P 1 
SFERSCKMS  SRCIRMSPUT .B32; 1 = a 


ss-32 V4.0-74 


—<= 


1 
1 


RMSUPDATE_IF 


a 


PRR PS Pe HS HS HS ESTOS HS HS HS HS HS HS HS HS HS FS HS HSS HS HS HS HS HTS SCS FE HS HEFCE EE FEE HE FE CE TES FSCO HSCS FSFE FSFE CS *E Sete tera Stara re 


OCoODDO WeM CO NN FUR OO-D SOOFDD RO K—MOUMRO— CO OOR—M Wes 


MM MITTIN OME. OD OA COOK RK NNM MM MONWM Wr 
SKK NN NNN NN NININININININ NINN ONIN MIMMMMmMmMmMm So MMMM MNP 
- =— 


a woe > oe Cel eel oe eel ee com ee eee ee 


a 
— 
t 
=) 
w 
a 
7 
w 
> 
a <q 
— ie] a 
1 a 
vu . a 
w ~ Lt 
a is 4 t Dead 
Sad ' a VY oA 
o Aw a w a) —-™N A 
ae ~> < a _— - « ww 
wn qin ‘ Lf _ . a _— 
w win - ww Wa vw wo nw ow no mA ~~ 8 oar 
™N Oo aze ao vn = C2OtCc ww « Oo -D s> a << . 
no =~ ms ao a-~ o oOo @ aca c¢aec a vo KF Ae of A ~ 
™N | @ Nu o@ NU MN Ene ODO-wN 'a N *<=t« @Oatvacdtoa cra 2 @ 
nam =< em aa mm Mm wo ft o- - <« NS Ae EMH eeu ~oO < 
2N2 &c¢& a& DOR =< -<~=et = SOW Wo a 4 P=4 al “uMewes Fe QO. cc wt «= 
_ _ — ver YW ~w~owrnr-@M* w Ww _— owuw ~~ ws wee 
—@es we ws €@€ ss wwerO «+ > S<seousst - -_ aes w@ = eyoOwM, «+ ac ewe O wer 
Kon WwW MH MMW EE Y) CO w~etitonmr- FF EH HW ~DO WOK WUZOMW ~~ tt Seow we 
nDD> nroa7ZD ~ 27a JD ev Cues Ww Oo 7 FN MOD ewer D ZOD 2 
be . . ee ss. Fe w =O Oo we oO or s —-— —oao . > es 
<a ww “<< MmZAL *xeOo~wR ss A SAHA FA T"EZ + + I H~~“HOM ZHOUZ 
Or — AMAMA — — — AN OZ H- AU OANZVNOGRE A Oe TIM IM DQOWE ONT EO OENMOa 
CGMVBTRBTRBMMOBBPS TCH OB BMTEBBOTOVY-- Ke BB BVM >S “BVO MVE—-B>a-Bs> 
—_ | = 
Nu UN aN n> = za N 
$V34I0 @0 wVBy Voy 3BIu390 ~wOuwZOan~os 344 Boi NN Nos Bounw vw oo 
>ODAGYOYO > OA GeV >-OaA Caw >ve SOA wOOrac@Oacv>rOv -O> Seoviw>sOov>-aoav> 
Ft et eet ttt Se tet ttt het tet tft Sete $4 Ft Pde Pda the Sod Sad td Pal tet) 
ZTOrL-OOOMOODT OV OOOE ~VCOVAODTE@MITOOCOOOMEYVOVAMAOLOOILE@OELOO OEE OOZ- OOE 
oe oe eo ecee 3 oe fa Af rv. ry ry 
fr AA ® er AA A o - ~N ~~ w 
Nm Mw w o ~o oOo - -— — _ oa 
MOWAT TF TTT TONNUN OO OP-PF-F-F- DODDODOOOOO ce eee ee OODOVVVV OOO OWWwwik eeu 
OOOCCOCOCOOCOCOCOCOCOCOCOOOCOCOOCOSOSOSOSOOOOSOSOSOOOOCOCO OOOO OOOCOOOSCOOOOOOoOOoOoe— 


SDOOSCOSOOSSOOOOSSOOSOOCOSSSSOOSOSSSOSOOSOSOSOSOSOSOOOSOOSOSOOSOOSOSOSOOSOSOSOOSOSOOSOOoOO 
nn ne ne a a a eee) we ae) ww ee we ew ww lala lola lololeolololololelololelolelololo lo) 


OOK MD — LK OOK MK NOOK MM MOV LOOD ONO KOK K—MOVKOVUGOOK KK NOOORKMNoOO- <0 
OWO Or Or OWOK— WWO Or Oe WMD OMOWER Me OO Oe WWM WM WO OMWwWWOe OObnK—— WO DO 


Oo o 
OWWOOKOM — WWOWM OT & WOWOMNOL COVODOMMNWMwe vu Mu wT UONWOOOu OoOvu «toy 
MODOMOMOO VO TOOMWOVOOO LDH LQOOCOCCOWM OP. OQDNODOOCDOMNMNOOOM € fF wWVOM Wie OU 


oO oO 
oOo Oo 
o Oo Oo 
o -OO vw wv owaoo So 
oOo own w - NEO oS 
oOo w w o So 
o 2 L°) So [=] 
So o Oo 
Oo o Oo 
Oo So So 
oOo Oo o 
wow OPO OO wth OO & & SEWOW TO LO u Ow atwoorood ow aon aon 
020Oom 2c ct OMOD ON DO DW YwMwowW dae w o <o <t0OVetvewovo wm «wm aw 
cw ww 
m oO Oo 
oO 
oc 


Used: 


Sete Se Se Se Se Se Be Se 


| 4 
RM3PUT bese 1984 01:57:49 VAX-11 Bliss-32 V¥4.0-74 
yoe~-000 RMSUPDATE_IF 12-8 08-19be 13:01:35 DISK SVMGMASTER SCAMS SRCIRMSPUT .B32; 1 
000000006 gf 1 p08" JSB RMSUNLOCK 
0 OD 100 MOVL RO ead 
Hi ; 1 BLBC STATUS. 15$ 
6E 8061 F C 0011 MOVZWL #32865, STATUS 
3 11 11 BRB 16$ 
00006 30 OO11A 15$: BSBW RMSCLEAN_BDB 
50 ge DO 0011D 168: MOVL STATUS, RO 
C BA 8159 POPR #*°M<R2,R3,R4,R5> 
05 00122 RSB 

; Routine Size: 291 bytes, Routine Base: RMS$RMS3 + 037D 
: 1326 1386 1 END 
3; 1327 1387 
:; 1328 1388 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
> RMSRMS3 1184 NOVEC,NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
Ser ene ee ek) eee yabols qcooscecss Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28: CRMS.OBJIRMS.L32;1 3109 123 3 154 00:00.4 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:RM3PUT/OBJ=OBJ$:RM3PUT MSRC$:RM3PUT/UPDATE=(ENH$:RM3PUT) 
3; Size: 1184 code + 0 data bytes 
3; Run Time: 00:31.1 
; Elapsed Time: 00:53.6 
3 Lines/CPU Min: e68e 
3 Lexemes/CPU-Min: 1682 
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